home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abl.d64 / menu (c)abl (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  161 lines
  1. 10 REM THIS MENU PROGRAM WAS DESIGNED          AND BUILT BY DOUG RODGER, ON
  2. 20 REM ON SHORT NOTICE MIND YOU! SO            LATER WHEN THINGS SETTLE DOWN
  3. 30 REM A BIT WE WILL BUILD A BETTER            ONE, SOME THING MORE LIKE A
  4. 40 REM MAGAZINE MAYBE, OR MAYBE YOU            ALREADY HAVE ONE THAT WE COULD
  5. 50 REM USE!  IN ANY CASE LET US KNOW           HOW YOU FEEL...    ]>UG..
  6. 60 TP$="[212][208][213][199] ([154][195])[154][193][194][204]":DV=PEEK(186)
  7. 70 Q$=CHR$(34)
  8. 80 POKE53280,.: POKE53281,.:GOTO180
  9. 90 IFA=0THENA=1:POKE53265,11:RETURN
  10. 100 IFA=1THENA=0:POKE53265,27:RETURN
  11. 110 GETK$:IFK$=""THEN 110
  12. 120 IFK$="Q"THENGOTO400
  13. 130 IFK$="R"THENGOTO640
  14. 140 IFFLTHENRUN
  15. 150 RETURN
  16. 160 GETK$:IFK$=""THEN160
  17. 170 RETURN
  18. 180 :
  19. 190 GOSUB90
  20. 200 PRINTCHR$(142)"[147][151] T H E"
  21. 210 PRINT"  [164][164]  [164] [164][164][164] [164]  [164]
  22. 220 [153]"    (null)  SGN   FN SGN  SGN
  23. 230 PRINT"   [180] [180] [180] [165]   [165]  [165]
  24. 240 [153]"   SGN SGN SGN  FN  FN  FN
  25. 250 PRINT"   [180] [165] [165] [165]      [165]
  26. 260 [153]"   SGN   FN   FN (null) (null)
  27. 270 PRINT"  [163]  [163][163] [163][163][163] [163] [163]
  28. 280 [153]"CONT   TOTOTOTOTOTOTOTOOPENTO CONTTOTOTOTOTOOPENTOCONT TOOPENTOCONT  TOOPENTO CONTTOTOTOTOTOOPENTOCONT
  29. 290 PRINT"            [180]      [180]  [180]   [180]      [180]         [164][164][164]  [164][164][164][164][180]  [164][164]  [180]  [180]   [180]      [180]
  30. 300 [153]"CONT        SGN      SGN   SGN  SGN   SGN  SGN TOTO               SGN      SGN   SGN  SGN   SGN  SGN   SGN
  31. 310 PRINT"[154]        [180]      [180][163][163][163]   [180]   [180]  [180]   [180]              [180]      [180]      [163][163]  [180]  [163][163]  [180]
  32. 320 [153]"CONT        FN      SGN          SGN      SGN
  33. 330 PRINT"[154]      [163][163]     [163][163]     [163][163][163][163][163][163] [163][163][163][163][163][163]
  34. 340 [153]""[166]7)"M O N T H L Y   D I S K S !
  35. 350 PRINTSPC(10)"FOR T[150]HE C[158]OMMOD[154]OR[156]E 64!
  36. 360 [129]X[178]1[164]11:[141]90:[130]
  37. 370 [141]160
  38. 380 NF[178]0:[129]X[178]1[164]11:[129]Y[178]1[164]16[172]X:[130]:[141]90:[130]
  39. 390 [137]450
  40. 400 [151]53280,14:[151]53281,6
  41. 410 [153]"LOADCONT    **** COMMODORE 64 BASIC V2 ****
  42. 420 PRINT" 64K RAM SYSTEM  38911 BASIC BYTES FREE
  43. 430 [153][199](142)"STOPTPUG!CONT":[158]42115
  44. 440 [141]90
  45. 450 [153]"LOAD"
  46. 460 [153]"CONT     TOTOTOTOTOTO TOTOTOTOTO TOTO TOTO TOTOTOTOTO
  47. 470 PRINT"     [164][164]  [164][164][180]  [164]  [180]  [180]  [180]     [180]
  48. 480 [153]"OPEN         SGN    SGN  SGN  SGN  SGN  SGNTOTO
  49. 490 PRINT"         [180]    [180]  [180]  [180]  [180]  [180]  [180]
  50. 500 [153]"FOR         SGN    SGNTAB(TAB(   TAB(  SGN  TAB(  SGN
  51. 510 PRINT"       [164][164][180]  [164][164][180]   [164][164][164][164][164][180][164][164][164][164][164][180]
  52. 520 [129]X[178]1[164]200:[130]
  53. 530 [129]X[178]1[164]5:[129]Y[178]1[164]150[171]25[172]X:[130]:[141]90:[130]:
  54. 540 [153]"POKE (null)HILE VIEWING ANY OF THE NEXT PAGES
  55. 550 PRINT"      YOU MAY..HIT
  56. 560 [153]"        ]FOR(null)[ (null)UIT
  57. 570 PRINT"        ][129][210][ [210]UN THE PROGRAM
  58. 580 [153]"        ]FOR?[ ATNNY OTHER KEY TO
  59. 590 PRINT"             SEE THE NEXT PAGE!
  60. 600 [153]" (null)IBRARIFORANS NOTE: ATNLWACONTYS MAKE A BACK-UP
  61. 610 PRINT"  FIRST,[129] AS SOME OF TH[154]ESE PROGRAMS
  62. 620 [153]"    DO WFORRITE TO DISK! CONT    ]>UG..
  63. 630 GOSUB160:GOTO730
  64. 640 POKE53280,14:POKE53281,6
  65. 650 PRINT"[147][154]    **** COMMODORE 64 BASIC V2 ****
  66. 660 [153]" 64K RAM SYSTEM  38911 BASIC BYTES FREE
  67. 670 PRINTCHR$(142)"[144]TPUG![154]"
  68. 680 PRINT"LOAD"Q$"BOOT"Q$","DV",1"
  69. 690 PRINT"RUN":PRINT"[145][145][145][145][145][145][145][145][145]"
  70. 700 REM POKE631,13:POKE632,13:POKE198,2:END
  71. 710 END
  72. 720 REM-------------------------------
  73. 730 GOSUB90  :REM OFF
  74. 790 PRINTCHR$(142)"[147] [151]THE
  75. 800 [153]"   TAB(TAB(TAB(TAB((null)  TAB(TAB(TAB(INT   TAB(TAB(TAB(INT
  76. 810 PRINT"[129]        [181]    [181]      [181]
  77. 820 [153]"SYS        INT    INT      INT
  78. 830 PRINT"        [181]    [181]      [181]
  79. 835 [153]"SYS             INT      INT
  80. 850 PRINT"[129]     [181]   [182]   [181]      [181]
  81. 860 [153]"   TOTOINT TOTO(null) TOTOINT   TOTOTOINT
  82. 870 PRINT"
  83. 880 [153]"              BBS  SYSTEM..
  84. 890 GOSUB90:GOSUB160:GOSUB90
  85. 900 PRINT" [147]                                      ";
  86. 902 PRINT"                                        ";
  87. 904 PRINT"                                        ";
  88. 906 PRINT"     tHE SYSTEM DISK AS IS WILL NOT RUN";
  89. 908 PRINT"[144]    [129]EXACTLY AS IS,  THE DISK HAS A WRI";
  90. 910 PRINT"TE[144]    PROTECT TAB ON THE NOTCH.   i WO";
  91. 912 PRINT"ULD[144]     [129]NOT SUGGEST REMOVING IT, BUT IN";
  92. 914 PRINT"STEAD,[144]   MAKE A BACK-UP DISK NOW!![144]  ";
  93. 916 PRINT"                                        ";
  94. 918 PRINT"               [129]yOU WILL BE REARRANGING ";
  95. 920 PRINT"THE BOARD[144]     TO SUIT YOURSELF. yOU WI";
  96. 922 PRINT"LL HAVE TO[144]      [129]DELETE SOME OF THE FIL";
  97. 924 PRINT"ES IF YOU WANT[144]    TO RUN THE m1 bbs ON";
  98. 926 PRINT" A SINGLE 1541![144]    [144]                  ";
  99. 928 PRINT"                         [129]tHE BOARD WIL";
  100. 930 PRINT"L 'LOCK UP' IF YOU[144]     [129]  HAVE THE NOT";
  101. 932 PRINT"CH COVERED, DUE TO THE[144]      [129]NATURE OF ";
  102. 934 PRINT"RELATIVE FILES. [205]AKE A[144]      [129]  BACK UP";
  103. 936 PRINT" BEFORE YOU START MUCKING[144]        [129]ABOU";
  104. 938 PRINT"T, SO IF YOU MESS UP, NO PROBLEM[144]    , ";
  105. 940 PRINT"YOU HAVE A BACK UP, right![144]             ";
  106. 950 GOSUB90:GOSUB110:GOSUB90
  107. 1000 PRINT"[147]                                       ";
  108. 1002 PRINT"                                        ";
  109. 1004 PRINT"       aLL THE DOX ARE IN THE BULLETINS";
  110. 1006 PRINT"[144]     [154]AND HELP MENUS, WHAT i WOULD SUGE";
  111. 1008 PRINT"ST[144]     YOU DO NEXT IS PRINT THEM ALL O";
  112. 1010 PRINT"UT[144]       [154]IN SOME KIND OF ORDERLY FASHI";
  113. 1012 PRINT"ON![144]        tHEY ARE ALL THE SEQUENTIAL";
  114. 1014 PRINT" FILES.[144]      [154]aS THE sysop YOU CAN SEND";
  115. 1016 PRINT" ALL THAT[144]      COMES ON TO THE SCREEN ";
  116. 1018 PRINT"TO YOUR[144]          [154]PRINTER WITH 'c= k, T";
  117. 1020 PRINT"HE SAME WILL[144]       TURN IT OFF AGAIN. ";
  118. 1022 PRINT"tHERE ARE NO[144]         [154]FANCY PRINTER DRI";
  119. 1024 PRINT"VERS, SO IT WOULD[144]      HAVE TO BE A cb";
  120. 1026 PRINT"m COMPATABLE![144]          [144]              ";
  121. 1028 PRINT"                               [154]oN THE ";
  122. 1030 PRINT"OTHER HAND YOU CAN ALWAYS [144]    USE YOUR";
  123. 1032 PRINT" FAVE WORD PRO'.[144]              [144]       ";
  124. 1034 PRINT"                                      [154]";
  125. 1036 PRINT"nEXT FIRE IT UP, PLUG IN YOUR[144]        m";
  126. 1038 PRINT"ODEM, BUT DO NOT PUT IT[144] ON THE [144]      ";
  127. 1040 PRINT"  [154]PHONE LINE YET, YOU STILL HAVE SOME[144] ";
  128. 1042 PRINT"    WORK TO DO !
  129. 1050 [141]90:[141]110:[141]90
  130. 1100 [153]"LOAD                                       ";
  131. 1102 [153]"                                        ";
  132. 1104 [153]"     STOP nEXT LOAD AND RUN 'boot', FILL ";
  133. 1106 [153]"INSTOP    FORTHE TIME ETC, THEN TAKE THE 'ch";
  134. 1108 [153]"eckSTOP      system files' OPTION. tHEN TA";
  135. 1110 [153]"KE THESTOP     FOR'load bbs' OPTION..STOP       ";
  136. 1112 [153]"            FOR STOP                         ";
  137. 1114 [153]"              FOR     nEXT WE WILL PUT YO";
  138. 1116 [153]"U ON-LINE AS ASTOP    FORCALLER CALLED 'sysop";
  139. 1118 [153]"' AND A PASSWORDSTOP    '(null)ATN(null)(null)', AND YOUR I";
  140. 1120 [153]"N! ATNNSWER '(null)(null)' TOSTOP     FOR'(null)EAD (null)EW (null)AIL'.";
  141. 1122 [153]" STOP                                      ";
  142. 1124 [153]"                            tHE REST IS";
  143. 1126 [153]" JUST READING THE      STOP   FORBULLETINS ET";
  144. 1128 [153]"C.. gOOD LUCK!STOP            FOR STOP          ";
  145. 1130 [153]"                             FOR STOP    wHO";
  146. 1132 [153]"OPS, WHEN THE BOARD IS UP YOUSTOP   FOR  jUST";
  147. 1134 [153]" HIT 'RETURN' A FEW TIMES ANDSTOP       TH";
  148. 1136 [153]"E MAIN ENTRANCE PROMPT WILL COME   STOP   FOR";
  149. 1138 [153]"UP! aNYTIME YOU ARE ON THE BOARD,STOP     FOR";
  150. 1140 [153]"  IF YOU HIT 'RETURN' ENOUGH TIMES    ";
  151. 1144 [153]"FOR    YOU WILL COME BACK TO THE MAIN
  152. 1146 PRINT"  COMMAND PROMPT!
  153. 1150 [141]90:[141]160:[141]90
  154. 1200 [153]"LOAD     (null)HE (null)1 PEEKPEEK(null) SYSTEM DOES SUPPORT"
  155. 1210 [153]"  (null)ETWORKING, SO AFTER YOU THINK YOU"
  156. 1220 [153]"  ARE READY, OR IF YOU HAVE ANY
  157. 1230 PRINT"  PROBLEMS, CALL ONE OF THE BOARDS IN
  158. 1240 [153]"  THE DOX!
  159. 1250 PRINT"                     [158]]>UG..
  160. 1260 [141]90:[141]110:[137]60
  161.